home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / cmpnew / cmpblock.h < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  3.6 KB  |  125 lines
  1.  
  2. static object LI1();
  3. static L3();
  4. static L4();
  5. static L8();
  6. static L9();
  7. static object LI1();
  8. static struct { short n,allow_other_keys;int *defaults;
  9.      int keys[7];} LI1key={7,0,(int *)Cstd_key_defaults,{23,24,25,5,6,4,3}};
  10. #define VMB1 register object *base=vs_top; object Vcs[14];
  11. #define VMS1  register object *sup=vs_top+8;vs_top=sup;
  12. #define VMV1 vs_reserve(8);
  13. #define VMR1(VMT1) vs_top=base ; return(VMT1);
  14. static object LI2();
  15. #define VMB2 register object *base=vs_top; object  V13;
  16. #define VMS2 vs_top += 3;
  17. #define VMV2 vs_reserve(3);
  18. #define VMR2(VMT2) vs_top=base ; return(VMT2);
  19. #define VC3
  20. #define VC4
  21. static object LI5();
  22. #define VMB5 register object *base=vs_top; object  V26 ,V25 ,V24;
  23. #define VMS5  register object *sup=vs_top+3;vs_top=sup;
  24. #define VMV5 vs_reserve(3);
  25. #define VMR5(VMT5) vs_top=base ; return(VMT5);
  26. static object LI6();
  27. #define VMB6 register object *base=vs_top; object  V40 ,V39 ,V38 ,V37 ,V36 ,V35 ,V34 ,V33 ,V32;
  28. #define VMS6  register object *sup=vs_top+5;vs_top=sup;
  29. #define VMV6 vs_reserve(5);
  30. #define VMR6(VMT6) vs_top=base ; return(VMT6);
  31. static object LI7();
  32. #define VMB7 object  V54 ,V51 ,V44;
  33. #define VMS7
  34. #define VMV7
  35. #define VMR7(VMT7) return(VMT7);
  36. #define VC8
  37. #define VC9
  38. static object LI10();
  39. #define VMB10 register object *base=vs_top; object  V68 ,V67 ,V66;
  40. #define VMS10 vs_top += 1;
  41. #define VMV10 vs_reserve(1);
  42. #define VMR10(VMT10) vs_top=base ; return(VMT10);
  43. static object LI11();
  44. #define VMB11 register object *base=vs_top; object  V76 ,V75 ,V74;
  45. #define VMS11 vs_top += 1;
  46. #define VMV11 vs_reserve(1);
  47. #define VMR11(VMT11) vs_top=base ; return(VMT11);
  48. #define VM11 1
  49. #define VM10 1
  50. #define VM9 5
  51. #define VM8 6
  52. #define VM7 0
  53. #define VM6 5
  54. #define VM5 3
  55. #define VM4 3
  56. #define VM3 4
  57. #define VM2 3
  58. #define VM1 8
  59. static char * VVi[54]={
  60. #define Cdata VV[53]
  61. (char *)(LI1),
  62. (char *)(&LI1key),
  63. (char *)(LI2),
  64. (char *)(L3),
  65. (char *)(L4),
  66. (char *)(LI5),
  67. (char *)(LI6),
  68. (char *)(LI7),
  69. (char *)(L8),
  70. (char *)(L9),
  71. (char *)(LI10),
  72. (char *)(LI11)
  73. };
  74. #define VV ((object *)VVi)
  75. static object  LnkTLI52() ;
  76. static object  (*LnkLI52)() = LnkTLI52;
  77. static object  LnkTLI51() ;
  78. static object  (*LnkLI51)() = LnkTLI51;
  79. static object  LnkTLI50() ;
  80. static object  (*LnkLI50)() = LnkTLI50;
  81. static  LnkT49() ;
  82. static  (*Lnk49)() = LnkT49;
  83. static object  LnkTLI48() ;
  84. static object  (*LnkLI48)() = LnkTLI48;
  85. static object  LnkTLI47() ;
  86. static object  (*LnkLI47)() = LnkTLI47;
  87. static object  LnkTLI46() ;
  88. static object  (*LnkLI46)() = LnkTLI46;
  89. static object  LnkTLI43() ;
  90. static object  (*LnkLI43)() = LnkTLI43;
  91. static object  LnkTLI42() ;
  92. static object  (*LnkLI42)() = LnkTLI42;
  93. static object  LnkTLI41() ;
  94. static object  (*LnkLI41)() = LnkTLI41;
  95. static object  LnkTLI40() ;
  96. static object  (*LnkLI40)() = LnkTLI40;
  97. static object  LnkTLI39() ;
  98. static object  (*LnkLI39)() = LnkTLI39;
  99. static object  LnkTLI38() ;
  100. static object  (*LnkLI38)() = LnkTLI38;
  101. static object  LnkTLI37() ;
  102. static object  (*LnkLI37)() = LnkTLI37;
  103. static object  LnkTLI36() ;
  104. static object  (*LnkLI36)() = LnkTLI36;
  105. static object  LnkTLI35() ;
  106. static object  (*LnkLI35)() = LnkTLI35;
  107. static  LnkT34() ;
  108. static  (*Lnk34)() = LnkT34;
  109. static  LnkT33() ;
  110. static  (*Lnk33)() = LnkT33;
  111. static object  LnkTLI32() ;
  112. static object  (*LnkLI32)() = LnkTLI32;
  113. static object  LnkTLI31() ;
  114. static object  (*LnkLI31)() = LnkTLI31;
  115. static object  LnkTLI30() ;
  116. static object  (*LnkLI30)() = LnkTLI30;
  117. static object  LnkTLI29() ;
  118. static object  (*LnkLI29)() = LnkTLI29;
  119. static object  LnkTLI28() ;
  120. static object  (*LnkLI28)() = LnkTLI28;
  121. static object  LnkTLI27() ;
  122. static object  (*LnkLI27)() = LnkTLI27;
  123. static object  LnkTLI26() ;
  124. static object  (*LnkLI26)() = LnkTLI26;
  125.